#!/usr/bin/perl

$str = "lrwxrwxrwx   1 ftp-mirror ftp-adm         7 Feb  4  2010 wwwman-html.tar.gz -> ./index";

my ($type, $mode, $name) = ($str =~ /^([-a-z])
                ([a-z-]{9})
                \s+\d*
                (\s+[\w-]+){2}
                /x);

# /^([a-z-])([a-z-]{9})/);

print "type is $type,\tmode is $mode,\tname is $name\n";